10 POKE56,32:CLR:DV=PEEK(186):IFDV<8THENDV=8
15 SYS57812"FONTS",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493:POKE53272,26
20 SYS57812"TOOLBOX117 C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
30 WINDOW=32768:MT=49152:BOX=MT+3:DIMME$(4,12)
40 POKE53280,0:POKE53281,0
50 SYSMT+54,0,39,0,24,7:SYSMT+3,1,38,1,23,127,14
60 SYSMT+42,4,34,8,15:SYSMT+54,5,35,7,14,13:SYSMT+3,6,34,8,13,160,3
70 SYSMT+54,1,38,2,4,7:SYSMT+3,2,37,3,3,160,1:PRINT"";
80 SYSMT+18,3,"[194][160][201][160][199]   [211] [195] [210] [197] [197] [206]"
90 PRINT"[159]";:FORI=1TO4:READA$:SYSMT+15,7,8+I,A$:NEXT
100 SYSMT+54,1,38,20,22,13:SYSMT+3,2,37,21,21,160,7:PRINT"[158]";
110 SYSMT+18,21,"[195][210][211][210]/[210][197][212][213][210][206] [212]O [211]ELECT"
115 SYSMT+6,184
120 POKE53272,26:SYSMT+9,184:SYSMT,9,6,34,4,3,1,"1234Q"
130 ONF%GOSUB200,400,300,60000,60000:GOTO120
200 A$="[204][207][193][196]ING DOCS...":GOSUB2000
220 SYSMT+27,"BIG SCREEN DOCS",DV,3*4096,3,7,"[194] [201] [199]   [211] [195][160][210] [197] [197] [206]":RETURN
300 A$="[204][207][193][196]ING [194][201][199] [211][195][210][197][197][206] [205][204]...":GOSUB2000:SYSMT+51,"BSCREEN 8000",DV,32768
310 A$="[204][207][193][196]ING [211]CREEN...":GOSUB2000:GOSUB5460:RETURN
400 A$="[204][207][193][196]ING [199]AME [205][204]...":GOSUB2000:SYSMT+51,"BS DEMO 9000",DV,36864
410 A$="[204][207][193][196]ING [194][201][199] [211][195][210][197][197][206] [205][204]...":GOSUB2000:SYSMT+51,"BSCREEN 8000",DV,32768
420 A$="[204][207][193][196]ING [211]CREEN...":GOSUB2000:FORI=1TO1000:NEXT
430 SYSMT+3,0,26,0,20,160,12:SYSMT+3,27,39,0,20,160,5:
440 SYSMT+3,0,39,21,24,32,0:PRINT"[146][158]":SYSMT+18,23,"[195]URSOR [193]ROUND. [209] TO [209]UIT"
450 SYSMT+15,28,5,"[211]CORE:00000"
460 SYS36864:RETURN
1000 DATA "1. [210]EAD/[208]RINT [196]OCS","2. [211]EE [194]IG [211]CREEN [196]EMO"
1010 DATA "3. [211]CROLL [211]AMPLE [211]CREEN","4. [209]UIT"
2000 SYSMT+3,2,37,21,21,160,1:PRINT"";:SYSMT+18,21,A$:RETURN
5000 POKE56,32:CLR:DV=PEEK(186):IFDV<8THENDV=8
5020 WINDOW=32768:MT=49152:BOX=MT+3:DIMME$(4,12)
5030 POKE53280,0:POKE53281,0
5040 SYS57812"FONTS",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493:POKE53272,24
5045 SYS57812"BSCREEN 8000",DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
5046 SYS57812"TOOLBOX117 C000",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
5050 REM GOTO5480
5060 SYSWI,208*256,80,80,32
5070 SYSWI+3,5,35,5,20
5080 SYSWI+9:SYSWI+18,27,8:SYSWI+18,28,8
5090 FORX=1TO30STEP2:FORI=1TO16STEP2:SYSWI+15,5+I,2+X,27:SYSWI+15,6+I,2+X,28
5100 SYSWI+15,5+I,3+X,28:SYSWI+15,6+I,3+X,27:NEXT:NEXT
5110 SYSWI+18,100,9:SYSWI+18,160,9
5120 SYSWI+75,0,80,33,33,100:SYSWI+75,0,80,34,49,160
5130 SYSWI+18,128+27,10:SYSWI+18,128+28,10
5140 FORX=1TO30STEP2:FORI=1TO1:SYSWI+15,3+I,2+X,27+128:SYSWI+15,4+I,2+X,28+128
5150 SYSWI+15,3+I,3+X,128+28:SYSWI+15,4+I,3+X,128+27:NEXT:NEXT
5160 SYSWI+18,128+29,9:SYSWI+18,128+30,9
5170 FORX=1TO30STEP2:FORI=18TO18:SYSWI+15,3+I,2+X,30+128:SYSWI+15,4+I,2+X,29+128
5180 SYSWI+15,3+I,3+X,128+29:SYSWI+15,4+I,3+X,128+30:NEXT:NEXT
5190 SYSWI+75,8,11,3,5,32:SYSWI+75,15,18,3,5,32
5200 SYSWI+18,29,5:SYSWI+75,8,18,8,9,29:SYSWI+75,8,18,15,19,29
5210 SYSWI+75,8,18,25,27,29
5220 FORY=19TO30STEP2:FORX=18TO50STEP2:SYSWI+15,5+X,2+Y,28:SYSWI+15,6+X,2+Y,27
5230 SYSWI+15,5+X,3+Y,27:SYSWI+15,6+X,3+Y,28:NEXT:NEXT
5240 FORX=4TO22:FORY=3TO33:SYSWI+12,X,Y:A=PEEK(780):SYSWI+15,X+52,Y,A:NEXT:NEXT
5250 FORX=4TO22:FORY=3TO15:SYSWI+12,X,Y:A=PEEK(780):SYSWI+15,X+26,Y+8,A:NEXT:NEXT
5260 REMSYSWI+72,"GAME SCREEN",8:SYSWI+9
5270 SYSWI+18,144,12:SYSWI+18,145,12:SYSWI+18,146,12
5280 SYSWI+15,32,25,144:SYSWI+75,33,45,25,25,145:SYSWI+15,46,25,146
5290 SYSWI+18,145+32,12:SYSWI+75,33,45,26,32,145+32
5300 SYSWI+18,144+32,12:SYSWI+75,32,32,26,32,144+32
5310 SYSWI+18,146+32,12:SYSWI+75,46,46,26,32,146+32
5320 SYSWI+75,1,1,32,35,32:SYSWI+75,2,20,35,35,32:SYSWI+75,21,21,35,40,32
5330 SYSWI+18,143,7
5340 SYSWI+75,79,79,0,75,143:SYSWI+75,58,78,35,35,32:SYSWI+75,57,57,35,40,143
5350 SYSWI+75,5,56,40,40,32:SYSWI+75,4,4,40,48,143
5360 SYSWI+75,5,75,48,48,32:REMSYSWI+75,75,75,48,75,143
5370 FORI=147TO154:SYSWI+18,I,2:NEXT
5380 FORX=0TO80:SYSWI+15,X,80,INT(RND(0)*(154-147)+147):NEXT
5390 SYSWI+75,65,65,55,75,143
5400 SYSWI+75,55,55,55,75,143
5410 SYSWI+75,45,45,48,75,143
5420 SYSWI+75,35,35,55,75,143
5430 SYSWI+75,25,25,48,75,143
5440 SYSWI+75,15,15,55,75,143
5450 SYSWI+75,5,5,48,75,143:GOTO5480
5460 SYSWI+72,"GAME SCREEN",DV:SYSWI+3,1,38,1,23:SYSWI+6,0,0:POKE53272,24
5470 SYSMT+3,0,39,0,24,160,13+128:SYSWI+9
5480 SYS49152+48,"[145][157]Q":ONF%GOTO5490,5500,5510,5520:IFF%=5THENRETURN
5490 SYSWI+33:GOTO5480
5500 SYSWI+30:GOTO5480
5510 SYSWI+36:GOTO5480
5520 SYSWI+39:GOTO5480
10000 OPEN15,8,15,"S0:BIG SCREEN":CLOSE15:SAVE"BIG SCREEN",8:END
60000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN60020
60010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN60030
60020 NEXT:PRINT"[147]":POKE186,8:END
60030 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
60040 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
60050 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END